home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
051-075
/
disk_053
/
compiler
/
cmain.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-05-06
|
3KB
|
110 lines
#include <stdio.h>
#include "c.h"
#include "expr.h"
#include "gen.h"
#include "cglbdec.h"
/*
* 68000 C compiler
*
* Copyright 1984, 1985, 1986 Matthew Brandt.
* all commercial rights reserved.
*
* This compiler is intended as an instructive tool for personal use. Any
* use for profit without the written consent of the author is prohibited.
*
* This compiler may be distributed freely for non-commercial use as long
* as this notice stays intact. Please forward any enhancements or questions
* to:
*
* Matthew Brandt
* Box 920337
* Norcross, Ga 30092
*/
char infile[20],
listfile[20],
outfile[20];
extern TABLE tagtable;
int mainflag;
extern int total_errors;
main(argc,argv)
int argc;
char **argv;
{ while(--argc) {
if( **++argv == '-')
options(*argv);
else if( openfiles(*argv)) {
lineno = 0;
initsym();
getch();
getsym();
compile();
summary();
release_global();
closefiles();
}
}
}
int options(s)
char *s;
{ return 0;
}
int openfiles(s)
char *s;
{ char *p;
int ofl, lfl;
strcpy(infile,s);
strcpy(listfile,s);
strcpy(outfile,s);
makename(listfile,".lis");
makename(outfile,".s");
if( (input = fopen(infile,"r")) == 0) {
printf(" cant open %s\n",infile);
return 0;
}
ofl = creat(outfile,-1);
if( ofl < 0 )
{
printf(" cant create %s\n",outfile);
fclose(input);
return 0;
}
if( (output = fdopen(ofl,"w")) == 0) {
printf(" cant open %s\n",outfile);
fclose(input);
return 0;
}
if( (list = fopen(listfile,"w")) == 0) {
printf(" cant open %s\n",listfile);
fclose(input);
fclose(output);
return 0;
}
return 1;
}
makename(s,e)
char *s, *e;
{ while(*s != 0 && *s != '.')
++s;
while(*s++ = *e++);
}
summary()
{ printf("\n -- %d errors found.",total_errors);
fprintf(list,"\f\n *** global scope symbol table ***\n\n");
list_table(&gsyms,0);
fprintf(list,"\n *** structures and unions ***\n\n");
list_table(&tagtable,0);
}
closefiles()
{ fclose(input);
fclose(output);
fclose(list);
}